home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 51 / 051.d81 / mailing labels (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  13KB  |  445 lines
  1. 1 forx=0to15:poke53248+x,.:next
  2. 10 poke53281,.:poke53280,.:ifa<>0 then 40
  3. 20 print"[147][208]lease wait while loading...."
  4. 30 if a=0thena=1:load"get'n store.o",8,1
  5. 40 dim cc$(100,6),dc$(17),in$(8):goto3390
  6. 50 pw$="[147][208]lease [215]ait."
  7. 60 ifzz$="n"orzz$="[206]"then110
  8. 70 goto2810
  9. 80 gety$:ify$=""then80
  10. 90 ify$<>"y"andy$<>"[217]"andy$<>"n"andy$<>"[206]"then80
  11. 100 return
  12. 110 open8,8,8,"0:cc$,seq,r"
  13. 120 input#8,n:if n=0then170
  14. 130 fori=1ton
  15. 140 forj=1to6
  16. 150 input#8,cc$(i,j)
  17. 160 nextj:nexti
  18. 170 close8
  19. 180 rem------disk error check-----------
  20. 190 open15,8,15
  21. 200 input#15,en,em$,et,es
  22. 210 ifen<>0thenprinten,em$,et,es:
  23. 220 close15
  24. 230 rem------main menu------------------
  25. 240 b=100:print"[147][158]":sp$="[182]                [146][181]":restore:x=0:y=0:gosub2500
  26. 250 gosub4370
  27. 260 printspc(18)chr$(14)""n:printspc(12)" [205]ailing [204]abels  ":ch=0
  28. 270 printspc(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]":printspc(11)"[172][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][187]"
  29. 280 printspc(11)sp$
  30. 290 printspc(11)"[182][214]iew [193]ll [204]abels [146][181]":printspc(11)sp$
  31. 300 printspc(11)"[182]  [206]ew [193]dditions [146][181]":printspc(11)sp$
  32. 310 printspc(11)"[182]   [208]rint [204]ist   [146][181]":printspc(11)sp$
  33. 320 printspc(11)"[182][211]cratch a [204]abel [146][181]":printspc(11)sp$
  34. 330 printspc(11)"[182]  [211]earch for ?  [146][181]":printspc(11)sp$
  35. 340 printspc(11)"[182]      [209]uit      [146][181]":printspc(11)sp$
  36. 350 printspc(11)"[188][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][190]":
  37. 360 print"[158][197]nter your selection with the [195][210][211][210] keys ";
  38. 370 print"[207]nce selected, press [210][197][212][213][210][206] to continue"
  39. 380 gosub4410
  40. 390 get ch$:if ch$=""then390
  41. 400 ifch$="[145]"andb=84+16 thenb=196
  42. 410 ifch$=""andb=180thenb=84
  43. 420 ifch$=""thenb=b+16:pokev+1,b:pokev+3,b:pokev+5,b
  44. 430 ifch$="[145]"thenb=b-16:pokev+1,b:pokev+3,b:pokev+5,b
  45. 440 ifch$=chr$(13)thengosub2480:goto460
  46. 450 goto390
  47. 460 pokev+1,.:pokev+3,.:pokev+5,.
  48. 470 ifb=100then540
  49. 480 ifb=116then850
  50. 490 ifb=132then1670
  51. 500 ifb=148then720
  52. 510 ifb=164then1100
  53. 520 ifb=180then1840
  54. 530 rem-------view all cards-----------
  55. 540 print"[147]"spc(17)chr$(14)""n:pokev+21,0:gosub2500
  56. 550 printspc(12)"[214]iew all [204]abels"
  57. 560 printspc(12)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":gosub2140
  58. 570 if n=0 then240
  59. 580 fori=1ton:ifi<1theni=1
  60. 590 gosub2080
  61. 600 gosub4310
  62. 610 gety$:ify$=""then610
  63. 620 ify$<>"e"andy$<>"p"andy$<>"m"andy$<>"-"andy$<>"+"then610
  64. 630 ify$="e"thengosub2480:gh=i:gosub2310:gosub1320:i=i-1
  65. 640 ify$="p"thengosub2480:gosub2310:gosub1950:gosub2300:i=i-1
  66. 650 ify$="m"thengosub2480:goto240
  67. 660 ify$="-"thengosub2480:i=i-2
  68. 670 ify$="+"thengosub2480
  69. 680 ifi=nthengosub3780:goto240
  70. 690 gosub2320
  71. 700 nexti
  72. 710 rem------scratch a card------------
  73. 720 pokev+21,0:print"[147]"chr$(14)spc(12)"[211]cratch a label":gosub2140:gosub2500
  74. 730 print"[197]nter [204]ast [206]ame":gosub3860:gosub3340:iftu=1then750
  75. 740 print"":gosub2750:goto240
  76. 750 o=i:tu=0
  77. 760 fori=oton:gosub2080:gosub4330
  78. 770 gety$:ify$=""then770
  79. 780 ify$<>"s"andy$<>"t"andy$<>"m"then770
  80. 790 ify$="s"thengosub2480:goto820
  81. 800 ify$="t"thengosub2480:goto720
  82. 810 ify$="m"thengosub2480:restore:goto240
  83. 820 cc$(i,1)=chr$(255)
  84. 830 gosub2520:n=n-1:gosub2660:goto240
  85. 840 rem-------new additions-----------
  86. 850 n=n+1:i=n:pokev+21,0:print"[147]":printspc(13)"[206]ew [193]dditions":gosub2500
  87. 860 printspc(12)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":gosub2140
  88. 870 printchr$(14)"[197]nter [204]ast [206]ame":gosub3860:cc$(i,1)=lo$
  89. 880 print"":lo$=""
  90. 890 x=7:y=13:gosub4420:print""cc$(i,1)
  91. 900 gosub2300
  92. 910 print"[197]nter [198]irst[206]ame":gosub3900:cc$(i,2)=bl$:bl$=""
  93. 920 print""
  94. 930 x=7:y=13:gosub4420:print""cc$(i,2)" "cc$(i,1)
  95. 940 gosub2300
  96. 950 print"[197]nter [200]ouse [193]ddress":gosub3950:cc$(i,3)=bl$:bl$=""
  97. 960 print""
  98. 970 x=7:y=14:gosub4420:print""cc$(i,3):gosub2300
  99. 980 print"[197]nter [195]ity and [211]tate ":gosub4000:print""
  100. 990 x=7:y=15:gosub4420:print""cc$(i,4)", "cc$(i,5):gosub2300
  101. 1000 print"[197]nter [218]ip [195]ode":gosub4100:print""
  102. 1010 x=7:y=16:gosub4420:print"             "cc$(i,6):gosub2300
  103. 1020 x=2:y=22:gosub4420:print"[210]e-enter / [193]dd another / [211]ave / [197]xit"
  104. 1030 getyc$:if yc$=""then1030
  105. 1040 ifyc$="r"oryc$="[210]"thengosub2480:gosub2310:goto860
  106. 1050 ifyc$="[197]"oryc$="e"thenn=n-1:goto240
  107. 1060 ifyc$="a"oryc$="[193]"thenprintpl$:gosub2480:gosub2520:gosub2660:goto850
  108. 1070 ifyc$="s"oryc$="[211]"thengosub2480:gosub2520:gosub2660:goto240
  109. 1080 goto1030
  110. 1090 rem------search for----------------
  111. 1100 pokev+21,0:print"[147]"chr$(14)spc(12)"[211]earching for ?":gosub2140:gosub2500
  112. 1110 print""spc(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  113. 1120 print"[197]nter [204]ast [206]ame ":gosub3860:gosub3340:iftu=1then1140
  114. 1130 print"":gosub2750:goto240
  115. 1140 o=i:tu=0
  116. 1150 fori=oton:ifi<1theni=1
  117. 1160 gosub2080:gosub4310
  118. 1170 gety$:ify$=""then1170
  119. 1180 ify$<>"e"andy$<>"p"andy$<>"m"andy$<>"-"andy$<>"+"then1170
  120. 1190 ify$="e"thengosub2480:gh=i:gosub2310:gosub1320:i=i-1
  121. 1200 ify$="p"thengosub2480:gosub2310:gosub1950:gosub2300:i=i-1
  122. 1210 ify$="m"thengosub2480:goto240
  123. 1220 ify$="-"thengosub2480:i=i-2
  124. 1230 ify$="+"thengosub2480
  125. 1240 ifi=nthengosub3780:goto240
  126. 1250 gosub2320
  127. 1260 nexti
  128. 1270 getyc$:if yc$=""then1270
  129. 1280 if yc$="y"then1100
  130. 1290 ifyc$="n"then240
  131. 1300 ifyc$<>"y"andyc$<>"n"then1270
  132. 1310 rem------corrections----search-----
  133. 1320 gosub2360:print""spc(14)chr$(14)"[197]dit a [204]abel":gosub2500
  134. 1330 printspc(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]":print""cc$(i,1):gosub2790
  135. 1340 gosub80
  136. 1350 ify$="n"ory$="[206]"thengosub2430:goto1370
  137. 1360 gosub2300:gosub2370:gosub2430:gosub3860:cc$(i,1)=lo$
  138. 1370 lo$="":ln=len(cc$(i,1)):ifln>27then1340
  139. 1380 x=7:y=13:gosub4420:print""cc$(i,1)
  140. 1390 gosub2300:print""cc$(i,2):gosub2790
  141. 1400 gosub80
  142. 1410 ify$="n"ory$="[206]"thengosub2430:goto1430
  143. 1420 gosub2300:gosub2380:gosub2430:gosub3900:bl$=""
  144. 1430 x=7:y=13:gosub4420:print""cc$(i,2)" "cc$(i,1)
  145. 1440 gosub2300:print""cc$(i,3):gosub2790
  146. 1450 gosub80
  147. 1460 ify$="n"ory$="[206]"thengosub2440:goto1480
  148. 1470 gosub2300:gosub2390:gosub2440:gosub3950:bl$=""
  149. 1480 x=7:y=14:gosub4420:print""cc$(i,3)
  150. 1490 gosub2300:print""cc$(i,4):gosub2790
  151. 1500 gosub80
  152. 1510 ify$="n"ory$="[206]"thengosub2450:goto1530
  153. 1520 gosub2300:gosub2400:gosub2450:gosub4150
  154. 1530 x=7:y=15:gosub4420:print""cc$(i,4)
  155. 1540 gosub2300:print""cc$(i,5):gosub2790
  156. 1550 gosub80
  157. 1560 ify$="n"ory$="[206]"thengosub2450:goto1580
  158. 1570 gosub2300:gosub2410:gosub2450:gosub4200
  159. 1580 x=7:y=15:gosub4420:print""cc$(i,4)", "cc$(i,5)
  160. 1590 gosub2300:print""cc$(i,6):gosub2790
  161. 1600 gosub80
  162. 1610 ify$="n"ory$="[206]"thengosub2460:goto1630
  163. 1620 gosub2300:gosub2420:gosub2460:gosub4100
  164. 1630 x=20:y=16:gosub4420:print""cc$(i,6)
  165. 1640 gosub2300:gosub2320:gosub2080:gosub2520:gosub2660:i=gh
  166. 1650 return
  167. 1660 rem------print routine-------------
  168. 1670 print"[147]"spc(12)chr$(14)"[208]rint all [204]abels":pokev+21,0:gosub2500
  169. 1680 printspc(12)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  170. 1690 gosub4350
  171. 1700 gety$:ify$=""then1700
  172. 1710 ify$<>"c"andy$<>"m"then1700
  173. 1720 ify$="c"thengosub2310:gosub4360:goto1740
  174. 1730 ify$="m"then240
  175. 1740 open16,4,15:close16:ifst<>0 then gosub 10000 :goto 1820
  176. 1749 open4,4,0
  177. 1750 fori=1ton
  178. 1760 print#4,chr$(13)
  179. 1770 print#4,chr$(17); cc$(i,2)"  "cc$(i,1)
  180. 1780 print#4,chr$(17); cc$(i,3)
  181. 1790 print#4,chr$(17); cc$(i,4)", "cc$(i,5)
  182. 1800 print#4,spc(15)cc$(i,6)
  183. 1810 nexti
  184. 1820 close4
  185. 1830 goto240
  186. 1840 print"[153][209]uit to [204][207][193][196][211][212][193][210] : [193]re you sure ? ([217]/[206])  ";
  187. 1850 print"                                          ";
  188. 1860 geta$:ifa$<>"y"an